Dos/V Magazine 1995 October 15/CD [VMAG951015].bin/_demo/prowres/shared.dxr/01482_ãópÉnÉìÉhÉâ.ls

Text File | 1995-08-07 | 980 b | 41 lines

global nmaxpage, nminipage, syearstr, snextmovie, spastmovie, nnextfn, lmaxpagelist, lyearlist, presp, memframelabel

on mspriteset spno, ppsp, sptype, spink, castno, lh, lv
  puppetSprite(spno, ppsp)
  set the type of sprite spno to sptype
  set the ink of sprite spno to spink
  if lh < 640 then
    set the locH of sprite spno to lh
  end if
  if lv < 480 then
    set the locV of sprite spno to lv
  end if
  if 0 < castno then
    set the castNum of sprite spno to castno
  else
    if (spno = 11) or (spno = 12) or (spno = 13) or (spno = 14) then
      set the type of sprite spno to 0
    end if
  end if
end

on mpstypez ptzf, ptzt, typez
  repeat with tmpsp = ptzf to ptzt
    set the type of sprite tmpsp to typez
  end repeat
end

on mpstorf ptff, ptft, torf
  repeat with tmpsp = ptff to ptft
    puppetSprite(tmpsp, torf)
  end repeat
end

on mfincur fcf, fct
  repeat with tmpsp = fcf to fct
    if rollOver(tmpsp) then
      cursor(280)
    end if
  end repeat
end